Продолжает выполнение программы после завершения подпрограммы обработки ошибок.
Resume Если ошибка возникла в процедуре, в которой находится обработчик ошибок, то выполнение программы продолжается с инструкции, следующей за той, которая привела к ошибке. Если ошибка возникла в вызванной процедуре, выполнение продолжается с инструкции в процедуре, содержащей обработчик ошибок, из которой был сделан последний вызов. Resume Next Если ошибка возникла в процедуре, в которой находится обработчик ошибок, то выполнение программы продолжается с инструкции, следующей за той, которая привела к ошибке. Если ошибка возникла в вызванной процедуре, выполнение продолжается с инструкции, непосредственно следующей за той инструкцией в процедуре, содержащей обработчик ошибок (или инструкцию On Error Resume Next), из которой был сделан последний вызов. Resume строка Выполнение программы продолжается со строки, указанной в обязательном аргументе строка. Аргумент строка должен определять метку строки или номер строки внутри процедуры, содержащей данный обработчик ошибок.
Замечания
Если инструкция Resume используется в любой другой
программе, помимо обработчика ошибок, то возникает ошибка.
Пример
В данном примере инструкция Resume используется для
прекращения обработки ошибок в процедуре и возобновлению выполнения инструкции,
которая привела к ошибке. Для иллюстрации создается ошибка с кодом 55.
Sub ResumeStatementDemo() On Error GoTo ErrorHandler ' Включаем обработчик ошибок. Open "TESTFILE" For Output As #1 ' Открываем файл. Kill "TESTFILE" ' Попытка удалить открытый файл. Exit Sub ' Выходим из процедуры, чтобы ' не попасть в обработчик. ErrorHandler: ' Подпрограмма обработки ошибок. Select Case Err.Number ' Определяем код ошибки. Case 55 ' "Ошибка "Файл уже открыт". Close #1 ' Закрываем открытый файл. Case Else ' Здесь размещаются инструкции для обработки других ошибок... End Select Resume ' Возобновляем выполнение процедуры ' со строки, вызвавшей ошибку. End Sub